home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS Mega ASM (19xx)(-).d64 / list6-4 < prev    next >
Text File  |  2019-04-13  |  5KB  |  239 lines
  1. ; Desk Accessory zum Auslesen von Syteminformationen
  2. if     .p
  3.      t     "TopSym"
  4.      t     "TopMac"
  5. endif
  6.      f     DESK_ACC
  7.      o     $5500
  8.      q     $7f39
  9.  
  10. :Left     = 48
  11. :Right     = 272
  12. :Top     = 16
  13. :Bottom     = 152
  14.  
  15. :Start     jsr     i_ImprintRectangle
  16.      b     0,199
  17.      w     0,319
  18.  
  19.      LoadW     r1,COLOR_MATRIX
  20.      LoadW     r0,1000
  21.      MoveB     screencolors,r2L
  22.      jsr     FillRam
  23.  
  24.      LoadB     dispBufferOn,ST_WR_FORE!ST_WR_BACK
  25.      LoadW     r0,GrafikTab
  26.      jsr     GraphicsString
  27.      LoadW     r0,MenuTab
  28.      jsr     DoMenu
  29.      LoadW     r0,IconTab
  30.      jsr     DoIcons
  31.  
  32.      LoadW     leftMargin,Left+10
  33.      jsr     i_PutString
  34.      w     Left+10
  35.      b     Top+32
  36.      b     "aktueller Diskname:",CR
  37.      b     "Druckername:",CR
  38.      b     "Zeit:",NULL
  39.  
  40.      LoadW     r8,curDirHead+144
  41.      LoadW     r9,DiskName
  42.      ldx     #r8L     ; Wertzeichen beachten !!
  43.      ldy     #r9L
  44.      lda     #16
  45.      jsr     CopyFString
  46.  
  47.      LoadW     r0,DiskName
  48.      LoadW     r11,Left+100
  49.      LoadB     r1H,Top+32
  50.      jsr     PutString
  51.      LoadW     r0,PrntFileName
  52.      LoadW     r11,Left+100
  53.      LoadB     r1H,Top+32+10
  54.      jsr     PutString
  55.  
  56.      LoadW     r0,ProcessTab
  57.      lda     #1     ; 1 Proze~
  58.      jsr     InitProcesses
  59.      ldx     #0
  60.      jsr     RestartProcess
  61.      rts
  62. :GrafikTab
  63.      b     MOVEPENTO
  64.      w     Left+8
  65.      b     Top+8
  66.      b     NEWPATTERN
  67.      b     1
  68.      b     RECTANGLETO
  69.      w     Right+8
  70.      b     Bottom+8
  71.      b     MOVEPENTO
  72.      w     Left
  73.      b     Top
  74.      b     NEWPATTERN
  75.      b     9
  76.      b     RECTANGLETO
  77.      w     Right
  78.      b     Top+16
  79.      b     NEWPATTERN
  80.      b     0
  81.      b     RECTANGLETO
  82.      w     Left
  83.      b     Bottom
  84.      b     FRAME_RECTO
  85.      w     Right
  86.      b     Top
  87.      b     NULL
  88.  
  89.  
  90. :MenuTab     b     Top,Top+14
  91.      w     Left,Left+32
  92.      b     HORIZONTAL!1
  93.      w     MenuText
  94.      b     SUB_MENU
  95.      w     UnterMenu
  96.  
  97. :MenuText     b     "Men}",0
  98.  
  99. :UnterMenu     b     Top+14,Top+28
  100.      w     Left,Left+32
  101.      b     VERTICAL!1
  102.      w     InfoText
  103.      b     MENU_ACTION
  104.      w     DoInfo
  105.  
  106. :InfoText     b     "Info",0
  107.  
  108. :IconTab     b     1     ; 1 Icon
  109.      w     0     ; kein Setzen der Maus
  110.      b     0
  111.  
  112.      w     komBitmap     ; Zeiger auf die Bitmap
  113.      b     Right/8-2     ; x-Koordinate in CARDS
  114.      b     Top     ; y-Koordinate in Pixel
  115.      b     2     ; Breite des Icon
  116.      b     14     ; H|he des Icon
  117.      w     EndDA     ; Adresse, die bei Anwahl
  118.                ; angesprungen wird
  119.  
  120. :komBitmap     b     $80+28     ; Kopfbyte + 28 Folgebytes
  121.      b     %11111111,%11111111
  122.      b     %10000000,%00000001
  123.      b     %10000000,%00000001
  124.      b     %10000000,%00000001
  125.      b     %10000000,%00000001
  126.      b     %10000000,%00000001
  127.      b     %10000111,%11100001
  128.      b     %10000111,%11100001
  129.      b     %10000000,%00000001
  130.      b     %10000000,%00000001
  131.      b     %10000000,%00000001
  132.      b     %10000000,%00000001
  133.      b     %10000000,%00000001
  134.      b     %11111111,%11111111
  135.  
  136.  
  137. :EndDA     LoadW     appMain,RstrAppl
  138.      rts
  139.  
  140. :DoInfo     jsr     GotoFirstMenu
  141.      LoadW     r0,dlgBoxRamBuf
  142.      LoadW     r1,merkBuffer
  143.      LoadW     r2,417
  144.      jsr     MoveData
  145.  
  146.      LoadW     r0,DialTab
  147.      jsr     DoDlgBox
  148.  
  149.      jsr     i_MoveData
  150.      w     merkBuffer
  151.      w     dlgBoxRamBuf
  152.      w     417
  153.  
  154.      rts
  155.  
  156. :DialTab     b     $81
  157.      b     OK
  158.      b     16,50
  159.      b     NULL
  160.  
  161. :merkBuffer
  162.      s     420
  163.  
  164.  
  165. :DiskName
  166.      s     17
  167.  
  168. :ProcessTab
  169.      w     DoProcess1
  170.      w     20
  171.  
  172. :DoProcess1
  173.      php
  174.      sei          ; interrupt sperren
  175.  
  176.      MoveB     seconds,MySek
  177.      MoveB     minutes,MyMin
  178.      MoveB     hour,MyStd
  179.      plp
  180.  
  181.      lda     MySek
  182.      sta     r0L
  183.      jsr     Div10
  184.      clc
  185.      lda     r0L
  186.      adc     #$30
  187.      sta     secZehner
  188.      lda     r8L
  189.      adc     #$30
  190.      sta     secEiner
  191.  
  192.      lda     MyMin
  193.      sta     r0L
  194.      jsr     Div10
  195.      clc
  196.      lda     r0L
  197.      adc     #$30
  198.      sta     minZehner
  199.      lda     r8L
  200.      adc     #$30
  201.      sta     minEiner
  202.  
  203.      lda     MyStd
  204.      sta     r0L
  205.      jsr     Div10
  206.      clc
  207.      lda     r0L
  208.      adc     #$30
  209.      sta     stdZehner
  210.      lda     r8L
  211.      adc     #$30
  212.      sta     stdEiner
  213.  
  214.      LoadW     r0,time
  215.      LoadW     r11,Left+100
  216.      LoadB     r1H,Top+32+20
  217.      jsr     PutString
  218.  
  219.      rts
  220.  
  221. :Div10     LoadB     r0H,0
  222.      ldx     #r0L
  223.      LoadW     r1,10
  224.      ldy     #r1L
  225.      jsr     Ddiv
  226.      rts
  227.      
  228. :time
  229. :stdZehner     b     "0"
  230. :stdEiner  b     "0:"
  231. :minZehner     b     "0"
  232. :minEiner     b     "0:"
  233. :secZehner     b     "0"
  234. :secEiner     b     "0  ",NULL
  235.  
  236. :MySek     b     0
  237. :MyMin     b     0
  238. :MyStd     b     0